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COMPUTING THE FUTURE-- 
Ih CLACKAMAS COUNTY 


EDITORIAL 


Our monthly newsletter is starting 


into its Sth year of uninterrupted 
publication. The Editor is _ the 
second one ta take on this monthly 


task. Rod Gowen was the first editor 
with the assistance of Dennis 
Juries. Later, I volunteered to help 
Red, and ultimately, tcok on the 
duties of Editor. 


Maintaining a monthly publication is 
quite essential to maintaining our 
organization. There are several 
important reasons for this. While we 
mostly meet on the second Friday of 
the month, the availability of our 
meeting room is only assured if a 
reservation is made in time. With a 
one month in advance reservation, we 
sometimes find a reservation. in 
ahead of ours. Thus our newsletter 
carries this important information. 


With about a 50% attendance at 
meetings, varicus reports in the 
newsletter indicated what has 
happened at meetings. Plus release 


of information on products, people, 
and nation wide activity in the TS 


groups. Even though some of these 
people seldom came to meetings for 
various reasons, this medium helps 


to keep them informed. We keep an 
>> >> >> 
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Continued from page 1 

open mind on attendance as lenqg as 
there are enough members at meetings 
to conduct business. 

At present we are on an exchange 
basis with 12 other user = groups. 
These are our pipelines to TS 
activity. It is rather discouraging 
to get return newsletters only a few 


times a year from some of these 
groups. I well know the problem of 
lack of material to turn out a 


decent publication. Granted that at 
times ocur publication is rather 
skimpy in programs, but we also do 
not get member input to any degree. 


For the Clackamas County Area 
User group, it is doubtful that we 
could keep a viable group together 
without this important publication. 
I just hope that I can keep it 
going, and get it published before 
the first af each month. There is a 
substantial number that are mailed 
each month, and these also get cut 
on time. We certainly intend to keep 
this policy in effect as lang as it 
is possible. 


T/S 


The Editor 


DECEMBER MINUTES 


The December meeting was held at 
Jack Armstrang’s hame. 

Jack was nominated acting Chairman 
as there were na officers in 
attendance. The meeting opened at 


86:40 with 8 members present. 


The first and only business to be 
conducted was the nomination of 
officers. Jack pointed out that only 
two cfficers would be elected as Rad 


Gowen had volunteer tc continue the 
position of Treasurer. Alsa as Dick 
Wagner volunteered previcusly to 
take the Secretary position, that 
left Chairman and Vice Chairman 
positions. 

Jack Armstrong was nominated for 
Chairman end was seconded. 


Nominations for Chairman were closed 


by 100% vate of members there. 
Nominations were opened for Vice 
Chairman. Bill Dunlop was nominated 
for this position and was seconded. 


Nominations for this position were 
closed by 100% vote of members 
present. Se 


concerning 
take over 


Some discussion ensued 
someone volunteering to 
the Librarian position that) Jack 
held. As it consisted of reviewing 
newsletters and cataloging items of 
interst in the library data base, 
Alice Dunlop volunteered. NS i 
The matter of dues was brought up. 
As the By Laws sets dues at 15.00, 
this would be samething to discuss 
at a future meeting. Lacking $a 
Treasurers report, there was.” no 
knowdge of our current financial 
position. 55 


The meeting was adjourned at about 
9:30. ,. 

There was an abundance of cookies 
and other goad things served by | our 
hostes Maxine Armstrong. Duane 
Hewitt put on a demonstration of 
very good graphics in color with his 
MS-DOS system while our spouses did 
their visiting. \ 

Dick Wagner 


Bis 6 ri. 
by: ROD GOWEN 


Heard any TS related news lately? 
Did you get any information in the 
mail from other users, user groups, 
or vendors that may be of interest 
to our readers? If so, why not share 
it with us? We need all of the help 
that we can get. Please _ send 
info that you might have to: 
Gowen, C/Q CCAT/S, 1419 1/2 
Street, Oregon City, OR 970@45,.- 
phone in at: 
PM weekdays. I know that the 

user group will appreciate it! 


HAPPY NEW YEAR! - 


TG ALL CCAT/S MEMBERS! 
you all had a great Holiday 
Did Santa remember what you 
for your computer? If not, you 
just have to get for yourself! 
did, you will have plenty to do- 
a time. Let’s make this a 
year! 


Rod 
7th 


We hope 


needed 
will 


>> >> > 


any, 


Or, 
503/655-7484, NOON — 16 
entire 


that . 
season! _ 


If he. 
for. 
GREAT 


Qyin the past 8 years! Due to a_ 


continued, from page 2. 


MEETING NEWS! - 


We have now had to miss 2 meetings 
prior 
~get— 
home 

We 
one. 


NOT 


commitment, I had to- miss the 
together that was held at’ *the* 
of Jack Armstrong in December. 
wer sorry to have missed that 
About 1@ members made it, but- 
ONE ELECTED OFFICIAL was in 
ance! Even though there 
officers, they proceeded 
nominations of sorts. It, seems 
almost as though Jack volunteered to 


were 
to 


no 


attend-'” 


hold 


take on the job of Chairman. Dick 
has volunteered to be Secretary and 
I will continue on as Treasurer. 
Bill Dunlop and his’ sister Alice 
will help with the Library work. . 
This [eaves only the job of. Vice 
Chairperson to fill. We will not be 
sending out ballots this year but .. 
will have a show of hands at the. 
January meeting to affirm Jacks_ 
position as well as the others. Be 
there to have your hand _ counted! 


What will be the future 
Be there ‘to find out! 


@ UPDATES MAGAZINE- 


should be out on time. Frank and 
Carol Davis are doing a good job 650 
far. Let's make sure that they have 
a reason to keep going SUBSCRIBE 


of CCAT/S?_ 


NOW! FOR ONLY $18 PER YEAR, ' YOU 
CANNOT BEAT IT! The other way to 
make sure that they will want to 
keep doing for us is to write to” 
them and for them: Send contribut— 
ions! caer 
LOGICALL- 

is a fairly new AOS for LK-DOS. The- 


AOS is for 
SYSTEM. BOB SWOGER of the CATUG 
group has really put together a fine 
package for all of us LK-DOS ~ users! 
RMG now has this fine PD package ~~ in 
and will gladly make copies ~avail— 
able for the standard $3.56 per disk 
charge. As this is a 2° =disk 
“collection, RMG-is offering-~ it 
“$6 for both “plus “shipping.* “For 
“more detailed description,-~ 
S.A.S.E. to RMG at ‘the address on 
the back of the 


AUXILIARY~ OPERATING 


“for 
San 
send **a: 


newsletter.» <> -° 
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MIKE’ S.-NOTEBOOK 


By: Michael J. Di Rienzo 


(NOTE: REPRINTING OR REPRODUCING 
THIS COLUMN WITHOUT THE EXPRESSED 
WRITTEN PERMISSION OF THE AUTHOR IS 
HEREBY PROHIBITED. FOR PERMISSION, 
WRITE THE AUTHOR IN CARE OF THIS 
PUBLICATION.) 


new 
a 


This months utility gives you a 
WINDOW command that will -place 
user defined '3-D window at 

location and any size on the’ screen 
using any of the eight available 
colors. The user can define the 
line, column, width, height, and 
color of each window. When using 
this utility in your own home-grown 
programs, WINDOW will provide. an 
appropriate background to 


text, prompts, or instructions. as & 


used together with my GETPUT utility 


any 


print. 


published previously, you can ~ SAVE, 
then replace the area of the screen 
covered-up by the window. “This 
program “ provides a graphic 
background only and doesn’t open a 
new channel, so PRINT will work in 
its usual way. Error trapping is 
minimal for incorrectly sized 
windows, but is provided for the 


BASIC syntax. The syntax of this new 
command must be followed correctly 
or you will get a "Nonsense in 
Basic” error message. Windows that 
go off the screen will generate an 
"Integer out of range" error 
message. The syntax is as ° follows: 


the commas and semi-colons. Variable 
*"[" is the line (1-26) and *%C" 
the column (1-30) where you want the 


upper left corner of the window to-™ 
appear. Variable "W" is. the ‘width 
(1-36) and "H™ is the height © (1-20) - 
(in characters) of the window” ‘that’ 
you want to define. PSATE “is \ the? 
attribute color (@-7)-that you’ ‘want 
to paint the window. The = window 
shadow is always black. The” ‘CODE- 
must be initialized by RUNning line 
200 first... The CODE =: ¥s° “A net 


relocatable and is 323. bytes” long. 
Study . the fol lowing demo to 

understand Your: new utility command. 
Have fun! 


"WINDOW" 


By Michael J. Di Rienzo 


14 LET window=49856 >>> 


-PRINT USR window;AT L,C;W,H;A ‘Note - 


is: 


jose 


Continued from page 3 

20 PRINT USR window;AT 5,4;25, 
4;5 , 

3@ PRINT PAPER 5; INK 2;AT 6,5 
;"This is the window DEMO! "; FLA 
SH 1;AT 7,5;"Press a key to cont 
inue.*" 

4@ PAUSE @ 

5@ LET line=INT (1+RND*19) 

6@ LET column=INT (1+RND*29) 

7@ LET width=INT (1+RNDX(31-co 
lumn)) 

8@ LET height=INT (1+RND*(21-1 
ine)) 

9@ LET color=INT (1+RND*X7) 

10@ PRINT USR window;AT line,co 
lumn;width,height;color 

141@ GO TO 5@ 

206 CLEAR 49855: LET t=@ 

216 FOR n=49856 TO 56178 

220 READ a: POKE n,a: LET t=tta 
230 NEXT n: IF t<>32454 THEN PR 
INT FLASH 1;"Data Error! Recheck 
DATA lines": STOP 

24@ RUN 

25@ DATA 17,117,33,225,167,237, 
82,32,250,213,223,254,59, 32,35,2 
31,254,172,32,30,205,220, 27,205, 
96 ,38,237,67,0,195,223,254, 59,32 

,15,205,220,27,205,96, 38,237,67, 

2, 195,223,254, 59, 40,2,207,11,205 
»228,27,205,96,49,121,50, 13,195 
26@ DATA 24,4,0,0,0,%9,62,2,265, 

48,18,62,17,215,62,3,215, 237,91, 

@,195,58,3,195,71,58,2, 195,78,62 
»22,215,123,215,122,215,62,32, 21 

5 13,32,250,28,16,236 
27@ DATA 253,54,86,56,33,22,0,2 

37,91,0,195,205,69,23,121,50,90, 1 

95,58,0,195,135,135,135,56,0, 195 


58, 1,195,135, 135,135,61,50,1, 19 


5 58,2, 195, 135,135,135,60,50,2,1 
95, 58,3, 195, 135, 135, 135,60,59,3, 
195 

280 DATA 58,1,195,79,58,0,195,7 
1,205,62,38,58,2,195,79,6,0,17,1 
1,205,163, 195,14,0,58,3, 195,71, 
30,1,22,255,205, 163, 195,58,2,195 
,79,6,0,30,255,22,1,205,163,195, 
14,0,58,3,195,71,17,1,1,205,163, 
195,24,10,217,229,217,205,19, 40, 
217,225,217,2@1 

_ 290 DATA 58,3,195,71,58, 6,195,1 
52,61,71,46,3,229, 58,1,195,60,60 


,6@,79,197,205,62,38,58,2, 195, 739 


36,0, 17, 1,1,205,163,195,193,5,22 
5, 45,32,226,58,1,195,71,58,2, 195 
,128,60,79,46,3, 229, 58,0,195,61, 


61,61,71,197,205,62,38,14,0,58,3 — 


,195,71,22,255,30,1,205,163,195, 
193, 12,225,45,32,225,201 


USInG POINT! 


What is POINT? Our 2068 manual 
simply states that POINT tells you 
whether a PLOT point specified by 
coordinates is PAPER color (0), or 
INK color (1). The coordinates for 
x range from 0 to 255 and y ranges 
from 0 to 175. Note: input other 
than PLOT also is recogonized, but 
the results are by coordinates. I 
recall trying this in the early days 
of 2068 experiments, but it didn’t 
seem of much value. 


Sharon Aker’s book, T/S 2068 BASICS 
and BEYOND actually put POINT to 
some use with this short program: 
PROGRAM #1 

10 INPUT"Press any n5Y "sad 

15 PRINT at 

20 PRINT AT 10,0 

25 FOR y=175 TO 168 STEP-1 

30 FOR x=0 T0 8 

35 PRINT POINT (x,y); 

40 NEXT x: PRINT: NEXT y 
Just input any character including 
graphic and see the result. 


For some time I have thought that 
there should be some way to print 
the pixel addresses or coordinates 
ef a graphic figure. For practical 
purposes it should be a small fiqure 
as an 8x8 figure requires 128 
numbers for 64 addresses if the 9&x8 
is all INK color. Many designs may 
be much less than this. If such 
could be accomplished, then it would 
be possible to provide a design to 
any 2068 user. So, a design equal to 
the space of about 4 characters 
should be practical .to convert to 
addresses. 


Make these ‘change . in- lines 35 and .40 
to get a numerical print cut of a 
character. for INPUT: . 

35 IF POINT (x9 y¥2 THEN PRINT xe 
"40 NEXT x: NEXT y; 2 
Now you have... actual coordinates 
printed for the shape. you .INPUT. © We 
are not interested in. printing 


addresses of. PAPER color. The ~first- 


column is. the x line and the second. 
is the y column. Obviously the. 
amount of information that can be 
displayed in this manner is very 

Pe PR 4 


. 
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limited. See the 2068 manual, page 
152 for a display of coacrdinates 
used on the 2068. If the whole 
screen was printed out in this 
manner the data printed would be 
enormous because the POINT for each 
part of data would also be printed! 
The solution is ta da this on 
paper. 


A more useful record can be obtained 
by sending the data to a 2040 
printer. In this way the image can 
be any place on the screen. Make 
these line changes: 

33 IF POINT (x,y) 
Key GF 

35 IF POINT (x,y) THEN LPRINT y;“ 


This gives a line print out with a 
comma joining twa coordinate numbers 
and a space between addresses. Try 
it with RUN and see the difference. 
This is more like a DATA line. 


THEN LPRINT 


The reason that all of this works is 
that “IF POINT (x,y)" means "ON" if 
it is a true statement. The next 
step is to work this DATA inta a 
useable statement. This requires the 
numbers tc be copied into DATA 
lines, adding commas at the spaces 
between addresses. 


For an example, a Volkswagen BUG was 
used as it was 2 characters wide, 
being formed from a user. graphic 
assigned to keys A and B. The basic 
design again was from Sharon Aker. 
Later, some changes were made to 
include parts of the next two Ilawer 
character positions plus a slightly 
longer figure in these two character 
positions. Thus the figure was 9 
pixels high and 20 pixels lang. 
These changes will be described 
later, as well as reshaping the 
front end cf the car. All easily 
accomplished! The original design 
can be obtained from page 116 £4xfor 
those with access ta this book. 


The next step was ta develop a 
program to print out the coordinates 
for every INK 1 for this figure. At 
the same time a base line (road) was 
added. The program follows with line 
20 being the LOAD cammand for 
Oliger. Just change this line toa fit 


the readers equipment. Line 5S adds 


the ability to print on all 23 lines 
and scroll properly. Line 25 adds 
the base line under the BUG. You 
will have to wait until you get a 
SCREENS of BUG befcere you can use 
this next program. I will give you 
the data soon for this. 


PROGRAM #2 

10 LET at="BUG" 

20 LOAD /at SCREENS 

25 PLOT 0,167: DRAW 19,0 

30 PRINT AT 1,0 

50 FOR y=175 TO 165 STEP-1 

55 POKE 23692,255 

60 FOR x=0 TO 20 

70 IF POINT (x,y) THEN PRINT x 
o "2" 3¥3 "3 


80 NEXT x: NEXT y 


The raw DATA can be used ta 
reproduce an image of the BUG by 
copying it as lines of DATA, adding 
cammas in the spaces. However, we do 
not have a SCREENS yet to load in 
for line 10. The next program with 
DATA will be easier to use and to 
change. The program will reproduce 
the BUG and after a SCREENS save, 
called BUG, can be used in the above 
program to see the DATA that was 
used in the following program. As 
the reader does not have the image 
until this last step, the SCREENS 
can be used in this way. 


Program #3 
100 FOR a=1 TO 125 
110 LET m=175 
112 LET n=174 
114 LET o=173 
116 LET p=172 
118 LET q=171 
120 LET r=170 
122 LET s=16%9 
i124 LET t=168 
126 LET u=167 
130 READ x 
135 READ y 
140 DATA 5,m,6,m,7,m,8,m,9,m,10 


145 DATA 3,n,4,n,5,n,6,n,7,n, 8, 
n,9,n,10,n,11,n,12,n,12,n 

150 DATA 2,0,3,0,4,6,5,0,6,0,7, 
o,8,c,9,6,10,0,11,0,12,06,13,0,14 
oO 

155 DATA 1,p,2,Pp,3yPr4;Pr5,Pr6, 
P,7,P,8,P,9,P,10,p,11,p,12,p,13, 
p,14,p,15,p 


$5. 3> >> 
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160 DATA 0,q,1,G,2,Qs35Q3 45925, 
Gy 6,Q57,978,9,9,9,10,G,11,q,12,q 
,13,q,14,q,15,q, 

165 DATA O,r,1,r,y2Z,ryS,ry4,r yoy 
a Pe Pe Pe a eee ee rg are © Pa cee ie 
,13,r,14,r,15,r, 

175 DATA 2,5,3,5,4,Sy3yS,6ySy755 
78,5,9,5,10,5,11,5,12,5,15,5 

180 DATA 3,t,4,t,11,t,12,t 

185 DATA 0,u,1,uU,2,U,3,U,4,U,5,uU 
,6,u,7,u,8,u,9,u,10,u, li,u,iz,u, 
13,14,u,15,u,16,u,17,u,18,u,19,u, 
20,u 

200 PLOT x,y 

210 NEXT a 
Keying in this program and data will 
produce an image of a VW BUG at the 
upper left corner of the screen. To 
show the convenience of this last 
program to modify a figure, change 
lines 140 and delete S,m; 145 and 
delete 3,n,4,n,; 150) «and delete 
2,0,3,0,; and 160 with delete 1,p,- 
Now RUN again and see a better 
shaped BUG. SAVE this SCREENS if you 
like it. The SCREEN of BUG can naw 
be used in program #2 as if you had 
it originally. 


A next step might be tc look at the 
new expanded image with the first 
program. However, this image takes 
up 3 character spaces across the 
screen ¢x axis)? and 2 character 
Spaces up (Cy axis). This program 
must be adjusted ta match the new 


image. 
You might have a preferred screen 
location for the figure. Just take 


the last program and change the PLOT 
by subtracting from the y coordinate 
the start of the new location. And 
if moved across the screen, add the 
change in the x coordinates. Suppose 
the lacation is 59 points down and 
50 points across. Line 130 READ x+50 
and line 3S READ y-SO are the 
changes. Run and SAVE again. Also, 
be sure and save the program each 
time. 


Assume you don’t have the screen 
location af a figure on the screen. 
Just make a broad bracket of the 
location. It might look like it is 
in the upper half of the screen = and 
somewhere across! Change line SO as 
50 FOR y=175 TO (166-85) STEP-1, and 


line 60 as 60 FOR O TO 255. Now run 
this change and all of the INK 1 


pixels will be located. 


Several images can be displayed on 
the screen and saved back aS a new 
SCREENS by using the follawing 


Program that duplicates) an image 
across the screen, cr even in 
various locations. The duplicating 
program is very simple and works 
like a charm. The program starts 
with a VW BUG developed previously 
and saved. Then it is combined into 
2 VW BUGS and saved as a SCREENS 


called BUGS. Line 210 provides for 
9 pixel rows and line 220 produces 
a figure 39 pixels long including 
the original figure, 19 being added 
to the first 20. 


Program #4 
200 LOAD /"BUG"SCREENS 
210 FOR y=175 TO 175-8 STEP-1 
220 FOR x=0 TO 19 
230 IF POINT (x,y) THEN PLOT x+ 
20,y 
240 NEXT x: PRINT: NEXT y 
250 SAVE "BUGS"SCREENS 


Save this program and the SCREEN af 
the @ BUGS. Now that there are 2 
BUGS we will join them into a_ total 
of 12 BUGS, adding 10. The following 
program will demonstrate how to make 
a boarder of “Volkswagen Bugs On 


Parade" 


Program 3 
110 LOAD “BUGS"SCREENS 
120 REM this image is from 
program #4 
130 FOR Y=175 TO 175-8 STEP-1 
140 IF POINT ¢x,y) THEN FLOT x+ 
20,y 
150 IF POINT (x,y) THEN PLOT xt 
40,y 
160 IF POINT (x,y) THEN PLOT x+ 
60,y 
170 IF POINT (x,y) THEN PLOT x+ 
80,y 
180 IF POINT (x,y) THEN PLOT x+ 
100,y 
190 NEXT x: PRINT: NEXT y 
200 PRINT AT 2,0; "—--Volkswagen 
Bugs On Parade-—" 
Dick Wagner 
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pc page 


bys RaW Gaoven 


Well, after a month off, we are back! I hope you missed us! af. we are to 
te be doing any good at all with this column, we must be read and, if we 
are missing, we should be missed? Let us know if you do! 


dle are going to let DICK WAGNER do the honors again this month with a bit 
of useful (we hope) information for you beginner PC/NS—-O05 users. ile do 
welcome any and all items contributed to this column. do not know what 
Dick has in store for us, but will look forward to it with you. 


We at RMG continue to build and update our ever-growing PC Shareware 
library. At the rate of about 1-2 megabytes per week. A lot of the old 
software is being updated every so often and a lot of new software is 
showing up. We have the 1990 AMTAX shareware income tax program in now. 
This is a real nice program. It will not print the forms but will sure 
do the figures for you! We have data base and spreadsheet programs as 
well as CAD and word processors. Let us know if you are !ooking for 
something in particular. We will do our best to find it for you. 


As we have not had a regular meeting for the last 2 months, we have not 
had a PC meeting either. i you want to talk about a problem of project 
that you are having or doing with your PC, come to the January meeting and 
bring it up! Maybe someone can help you! After ali, that is what it is all 
about, helping each other. Whether it be with 15 or PC equipment, we ail 
need help from time to time. Some more than others. Remember when you got 
your first Sinclair or 7S computer? Were you looking for help? Weren’t we 
ali? ins’t that why CCAT/S was formed? isn’t that what will keep us going? 
We cannot afford to be TS SNOAS! ¢ CEATAINLY OO NOT want to forget o forsake 
our faithfull 1S computers. @, for one, still use my trusty 264 daily! f 
see no reason to stop using it for the jobs that it does so well! Let us 
continue to support the trusty old machines as well as allowing for growth 
in our group. After all, do we want to disband the group or keep it going? 


I now turn it over to Dick. See you next time... 


USING BASIC WITH MS—-pDos 


About a dozen of curs members are using an IBM clone computer, 
or a MS-DOS emulator with QL computers, in one way or = anather. 
I have been doing some trial and error work with Micrascoft 
GWBASIC. Until I purshased a good book on GWBASIC, I was really 
floundering. All BASIC languages are not the same, at least as 
far as disk handling. There are commands and instructions’ for 
the various types of DOS we use with our 2068 computers. So, how 
dees one find comparable command in GWBASIC? 


Just to get started, there are two commands in GWBASIC, FILES 
and SHELL. These are described in the computer manual and have 
to do with disk operations such as reading the BASIC disk 


catalog or directory, or even the MS-DOS directory while in 
BASIC. 
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Continued from page 7 

Assume the BASIC opering program is in drive "B" and the MS-DOS 
disk is in drive "A" and you have keyed in GWBASIC Cor whatever 
BASIC you are using). The command FILES will give the directory 
of drive "B". To access the MS-DOS directory, use FILES "“A:". 
This is anly a temporary switch and the cursor will appear = on 
the display right where it was before the switch. 


Assume a specific file in drive “A" is desired while in drive 
"B" BASIC. Type FILES "A: name. ext" to get that file tc use. 
There are only .BAS and .COM files, I believe, that can be used 
in BASIC. 


Assume you wish to return to MS-DOS from BASIC. Use SHELL for 
this. The computer will now be operating with MS-DOS. To return 
to specific MS-DOS program or command, key in SHELL "Az name 
-ext". Notice the use of double quotes in these commands. 


Now you wish to return to BASIC from MS-DOS. Key in EXIT. I am 
not sure that this returns you to where you left BASIC--try it 
and see. 


Now you are all through with BASIC and wish to return to MS-DOS. 
Be sure to SAVE any program material you have produced, using 
function key F4. Key in SYSTEM to close BASIC and to return to 
MS-DOS. 


Question, why work with GWBASIC when all of those prepared 
programs and utilities are available in MS-DOS? Well, we all 
spent a lot of time and effort to use Sinclair BASIC, so why 
Give it up? Plus, I am still waiting for members ta come forth 
with programs they have preduced in MS-DOS. If they can’t 
program in MS-DOS, then try GWBASIC. It can be done as I have a 
game program that is in MS-DOS. To show how GWBASIC is = similar 
to Sinclair BASIC, type in the following program. 


A few comments will help to produce interesting displays. The 
input is in degrees and the most interesting seem to be from i 
to 180. An input of less than 90 degrees will cause the image to 
"unwind". Save the program first with function key F4. F2 will 
Give the RUN command. The 10 function keys are listed at the 
bottom af the screen. 

Dick Wagner 


’for DEGREES use G60 ta O 

‘in ranges 9O ta 180 use add number 

fsuch as 179, 167, etc 

’Degrees af 9O and less will unwind the image. 
SCREEN 1:COLOF 4,5:KEY OFF:CLS 


LOCATE 12,10:FRINT "xx*#* GPIFRALS *#**** "sFOR DELAY = 1 TQ S00O:NEXT:CLS 
LINE INFUT “ENTER NUMBER OF DEGREES=";D%:D=VAL (D#) 
CLS 


D=D/57. 29578: ’Convert degrees ta radians 


150 PSET ¢(1350,96),1 


160 


FOR F=Oo TO 100 STEF D/2 


170 YHReCOS CR): X=X+130: Y=R*SINCR I Y=Y*. 7+96 


210 


LINE -¢X,Y),3 


2EO NEXT FE 
230 PAINT ¢100,1)9,5 
240 FOR DELAY =1 TO 9000:NEXT:CLS:GOTO 105 
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S REM ski run game 

6 REM a hit is counted if you 
Pass on the open side of the 
gate 


a 8 REM you must pass on the 


jpoint side of the gate. 

10 RANDOMIZE O 

15 REM use < and > for <> in 1 
ine 20. 

20 LET b#="<>" 

30 CLS 

40 DIM c(26,2) 

50 GO SUB 5000 

60 GO SUB 1000 

70 LET t=0 

80 LET p=0 

90 LET x=16 

100 GO SUB 2000 

110 GO TO 4000 
1000 FOR i=1 TO 25 
1010 LET cC€i,1)=INT CRND*¥5)+5 
1020 LET c¢€i,2)=INT CRND*#25)+4 
1030 NEXT i 
1040 LET c¢1,1)=21 
1050 RETURN 
2000 POKE 23692,255: PRINT AT 21 


2030 LET m=0 


@ 2040 LET i= 


2050 LET s=0 

2060 LET s=sti 

2070 LET t=t+i 

2080 PRINT AT 21,0°? 

2090 GO SUB 3000 

2100 IF s<>c¢i,1) THEN GO TO 206 


ce) 

2110 POKE 23692,255: PRINT AT 21 
ycCi, Zs bSC jt+ids 

2120 LET j=NOT j 

2130 LET i=iti 

2140 IF i<26 THEN GO TO 2050 
2150 FOR i=1 TO 23 

2160 LET t=t+l 

2170 POKE 23692,255: PRINT AT 21 
or? 

g 

2180 GO SUB 3000 

2190 NEXT i 

2200 RETURN 

3000 LET a$=INKEYS 

3010 IF at="S" THEN LET x=x-i 
3020 IF at="8" THEN LET x=x+1i 
3030 PRINT AT O,x;"#"5 

3040 IF t<>c(mt+1,1) THEN RETURN 
3050 LET t=0 

3060 LET m=m+i 

3070 LET k=NOT k 

3080 IF NOT k AND C(x-c(m,2))>0 T 
HEN RETURN 


3090 IF k AND Cx-c(m,2))<O THEN 
RETURN 


3100 LET p=pti 

3110 BEEP .05,20: PRINT “h" 

3120 RETURN 

4000 PRINT 

4010 PRINT “You hit ";p;" gates" 
4020 PRINT “Do you want to try a 

gain ?"; 

4030 INPUT at 

4040 PRINT af 

4050 IF a#C€1)="n" OR aéC1)="N" T 

HEN STOP 

4060 IF a$(1)<>"y" OR as="Y" THE 

N GO TO 4020 

4070 PRINT “Same course?"; 

4080 INPUT at 

4090 PRINT at 

4100 IF a$(1i)d="y" OR aSC1)d="Y" T 

HEN GO TO 70 

4110 IF a$(1i)<>"n" OR a$C1)="N" 

THEN GO TO 4070 

4120 GO TO 60 

3000 CLS 

9010 PRINT 

5020 PRINT TAB 8;"SKI RUN" 

S030 PRINT TAB 8; "-------——— - 

3040 PRINT 

5050 PRINT "You have to ski down 
a course" 

5060 PRINT “of 25 flags." 

3070 PRINT 

5080 PRINT “You must pass to the 
left of <" 

5090 PRINT “ and to the right of 


> to not have a hit." 
5100 PRINT 
5110 PRINT “You can move to the 
right and" 


5120 PRINT “left by pressing the 
arrow keys" 

5130 PRINT "(3S and 8)" 

3140 PRINT 

5150 PRINT “press any key to sta 
rt a 

5160 IF INKEY$="""THEN GO TO 516 
ce) 

3165 CLS 

5170 RETURN 


2 REM program by Roy Wisti 
with revisions by Dick Wagner 

S REM after the first RUN 
then use RUN 20 for the displays 

8 REM the displays of the 
MAZE changes with each RUN 20 

10 FOR f=144 TO 144+4: FOR g=0 
TO 7 

12 READ a: POKE USR CHR? (f+q) 
7a 


18 NEXT gs NEXT fs >} > 
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20 FOR f=1i TO 704 

22 PRINT INVERSE 1;CHRS (CRND* 
3.5)+144)5: 

23 NEXT f 

30 PLOT 0,0: DRAW 255,0: DRAW 
0,175: DRAW -—255,0: DRAW 0,-175 

50 DATA 24, 24, 24, 219, 219, 24, 24 

S52 DATA 24, 24,0, 255, 255,0, 24,2 
4 

54 DATA 24,56, 112, 227,199, 24,2 
8,24 

56 DATA 24,28,14,199,227,112,5 
6,24 


FROM THE 


EDITOR'S DESK 


The last two meetings have presented 
problems with nominations for 1991 
officers. We do have Jack Armstrong 
running for Chairman, and Bill 
Dunlop was pressed into volunteering 
for the Vice Chairman position. Dick 
Wagner had previously volunteered ta 
be the Secretary. With only Zz 
positions ta vote on and no one 
contesting so far, Rod and I decided 
not to issue ballots. Hopefully, we 
can get the election overwith at the 
January meeting. If there are any 
objections from members, please feel 
free to call Rod. 
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CCATYS 
1419 1/2 7TH Street 
Oregon City, OR 97045 


—-NOTICE— 


Opinions expressed in articles are Ww 
not necessarily those of members of 

the Clackamas County T/S User Group. 
Meeting minutes carry the consensus 

of members present at meeting. This 
newsletter nor staff will not be 

held liable for any damage or 
consequences due to following 
instructions, or review of products 

as contained in this newsletter. 


SUBSCRIPTION RATES 
FREE SUBSCRIPTION WITH PAID 
CCAT/S HEMBERSHIP-£15.00/YR 


AD RATES 
HEE 
Z FOUR LINE CLASSIFIED FREE 

WITH MEMBERSHIP ] 
# «50 / LINE 

¥ 5.00 / 1/4 PAGE 

€ 8.00 / 2/2 PAGE 

$ 215.00 / FULL PAGE 


ALL AD COPY MUST BE IN BY 
THE 10TH OF THE MONTH PRIOR 
TO THE MONTH AD IS TO RUN. 
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ROD GOWEN (TREASURER) 
419 1/2 7TH STREET 
OREGON GITY, OF 97045 
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